home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / WINDOWS / WHOIS.ZIP / WHOIS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-02-01  |  3.1 KB  |  98 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "WHOIS"
  4.    ClientHeight    =   6030
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6720
  8.    Height          =   6435
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   6030
  12.    ScaleWidth      =   6720
  13.    Top             =   1170
  14.    Width           =   6840
  15.    Begin VB.CommandButton Command2 
  16.       Caption         =   "Cancel"
  17.       Height          =   495
  18.       Left            =   2280
  19.       TabIndex        =   3
  20.       Top             =   5280
  21.       Width           =   1455
  22.    End
  23.    Begin VB.CommandButton Command1 
  24.       Caption         =   "Query"
  25.       Height          =   495
  26.       Left            =   480
  27.       TabIndex        =   2
  28.       Top             =   5280
  29.       Width           =   1455
  30.    End
  31.    Begin VB.TextBox Text2 
  32.       Height          =   3855
  33.       Left            =   240
  34.       Locked          =   -1  'True
  35.       MultiLine       =   -1  'True
  36.       ScrollBars      =   3  'Both
  37.       TabIndex        =   1
  38.       Top             =   960
  39.       Width           =   6135
  40.    End
  41.    Begin VB.TextBox Text1 
  42.       Height          =   375
  43.       Left            =   1200
  44.       TabIndex        =   0
  45.       Top             =   240
  46.       Width           =   5175
  47.    End
  48.    Begin GethostLibCtl.GetAdrs GetAdrs1 
  49.       Left            =   5520
  50.       Top             =   5400
  51.       _Version        =   262144
  52.       _ExtentX        =   847
  53.       _ExtentY        =   847
  54.       _StockProps     =   0
  55.    End
  56.    Begin WhoisLibCtl.Whois Whois1 
  57.       Left            =   4800
  58.       Top             =   5400
  59.       _Version        =   262144
  60.       _ExtentX        =   847
  61.       _ExtentY        =   847
  62.       _StockProps     =   0
  63.    End
  64.    Begin VB.Label Label1 
  65.       Caption         =   "Query Information"
  66.       Height          =   375
  67.       Left            =   240
  68.       TabIndex        =   4
  69.       Top             =   240
  70.       Width           =   855
  71.    End
  72. Attribute VB_Name = "Form1"
  73. Attribute VB_Creatable = False
  74. Attribute VB_Exposed = False
  75. Const CANCEL_REQUEST = 2
  76. Const REQUEST_INFORMATION = 1
  77. Private Sub Command1_Click()
  78.     GetAdrs1.HostName = "WHOIS.INTERNIC.NET"
  79. End Sub
  80. Private Sub Command2_Click()
  81.     Whois1.Action = CANCEL_REQUEST
  82. End Sub
  83. Private Sub Form_Load()
  84.     MsgBox "Whois : " + Whois1.Version + " / GetAdrs : " + GetAdrs1.Version
  85.     Text1.Text = "MABRY.COM"
  86. End Sub
  87. Private Sub GetAdrs1_EndGetHostAddress(ByVal IPAddress As String, ByVal ErrorNumber As Integer)
  88. 'The operation can be executed with events...
  89.     Whois1.HostAddress = IPAddress
  90.     Whois1.WhoisRequest = Text1.Text
  91.     Whois1.Action = REQUEST_INFORMATION
  92. 'Or the operation can be made in a sequential manner
  93. '    MsgBox Whois1.GetWhoisInformation(IPAddress, Text1.Text)
  94. End Sub
  95. Private Sub Whois1_EndGetWhoisInformation(ByVal WhoisInformation As String, ByVal ErrorNumber As Integer)
  96.     Text2.Text = WhoisInformation + Chr(13) + Chr(10) + "Error : " + Str(ErrorNumber)
  97. End Sub
  98.